my@l=@*ARGS[0].open.readline;
my$x;map {$x=$_~$x},@l;
print $x;
